home *** CD-ROM | disk | FTP | other *** search
/ CICA 1995 August / CICA - The Ultimate Collection of Shareware for Windows (Disc 2) (August 1995).iso / disc2 / programr / vbasic / generic.exe / GENERAPP.FRM < prev    next >
Text File  |  1993-06-02  |  2KB  |  75 lines
  1. VERSION 2.00
  2. Begin Form Form1 
  3.    Caption         =   "Form1"
  4.    ClientHeight    =   1845
  5.    ClientLeft      =   1095
  6.    ClientTop       =   1485
  7.    ClientWidth     =   3000
  8.    Height          =   2250
  9.    Left            =   1035
  10.    LinkTopic       =   "Form1"
  11.    ScaleHeight     =   1845
  12.    ScaleWidth      =   3000
  13.    Top             =   1140
  14.    Width           =   3120
  15.    Begin CommandButton Command1 
  16.       Caption         =   "Return Length of Text1.Text"
  17.       Height          =   375
  18.       Left            =   105
  19.       TabIndex        =   2
  20.       Top             =   1290
  21.       Width           =   2760
  22.    End
  23.    Begin TextBox Text1 
  24.       Height          =   405
  25.       Left            =   120
  26.       TabIndex        =   0
  27.       Text            =   "sample text"
  28.       Top             =   150
  29.       Width           =   2385
  30.    End
  31.    Begin Generic Generic1 
  32.       BooleanValue    =   0   'False
  33.       EnumValue       =   0  'Dasher
  34.       IntegerValue    =   0
  35.       Left            =   2445
  36.       LongValue       =   0
  37.       StringValue     =   ""
  38.       Top             =   690
  39.    End
  40.    Begin Label Label2 
  41.       FontBold        =   -1  'True
  42.       FontItalic      =   0   'False
  43.       FontName        =   "MS Sans Serif"
  44.       FontSize        =   9.75
  45.       FontStrikethru  =   0   'False
  46.       FontUnderline   =   0   'False
  47.       Height          =   435
  48.       Left            =   1290
  49.       TabIndex        =   3
  50.       Top             =   630
  51.       Width           =   795
  52.    End
  53.    Begin Label Label1 
  54.       Caption         =   "Length is:"
  55.       FontBold        =   -1  'True
  56.       FontItalic      =   0   'False
  57.       FontName        =   "MS Sans Serif"
  58.       FontSize        =   9.75
  59.       FontStrikethru  =   0   'False
  60.       FontUnderline   =   0   'False
  61.       Height          =   390
  62.       Left            =   75
  63.       TabIndex        =   1
  64.       Top             =   645
  65.       Width           =   1050
  66.    End
  67. End
  68.  
  69. Sub Command1_Click ()
  70.     Generic1.StringValue = Text1.Text
  71.     Generic1.Action = 1
  72.     Label2.Caption = Generic1.IntegerValue
  73. End Sub
  74.  
  75.